! name: ajt21
! type: ArchiCAD Door File
! ***** 3D script *****

mat1 = c
mat2 = d

R=(0.055*0.055+(a/2-0.12)*(a/2-0.12))/0.11

resol 120

prism_   16, 0.045, 
    -a/2, 0, 15,
     a/2, 0, 15,
     a/2, b, 15,
    -a/2, b, 15,
    -a/2, 0, -1,

    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    -a/2+0.12, 0.665, 15,
    -a/2+0.12, 0.16, -1,

    
    -a/2+0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.175, 79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1


addz -0.005

prism_ 10, 0.055,
    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    -a/2+0.12, 0.665, 15,
    -a/2+0.12, 0.16, -1,
    
    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.65, 15,
    -a/2+0.135, 0.65, 15,
    -a/2+0.135, 0.175, -1


R1=R-0.015

prism_ 12, 0.055,
    -a/2+0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.175, 79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1,

    -a/2+0.135, 0.8, 15,
     a/2-0.135, 0.8, 15,
     a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, b-0.12-R, 900,
    -a/2+0.135,b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.8, -1


addz 0.0175

 prism_ 10, 0.02,
    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.65, 15,
    -a/2+0.135, 0.65, 15,
    -a/2+0.135, 0.175, -1,


    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.615, 15,
    -a/2+0.17, 0.615, 15,
    -a/2+0.17, 0.21, -1

R2=R-0.022

del 2

prism_   4, 0.045,
    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.615, 15,
    -a/2+0.17, 0.615, 15

kx = -a/2+0.12+0.015+0.007*2+0.05
ky = 0.864

dx = (a-0.199*2-0.007*2) / 3
dy = (b-0.135-0.864-0.007*2-0.05) / 3


for iy = 1 to 2 step 1

    for ix = 1 to 3 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

        kx = kx+dx+0.007

    next ix

    kx =  -a/2+0.12+0.015+0.007*2+0.05

    ky = ky+dy+0.007

next iy

material mat2
R3=R-0.079
R4=R-0.072
addz 0.019

prism_ 72+nsp/3, 0.007,
    -a/2+0.135, 0.8, 15,
     a/2-0.135, 0.8, 15,
     a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, b-0.12-R, 900,
    -a/2+0.135,b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.8, -1,

    -dx/2-0.007-dx, 0.864+2*0.007+2*dy, 15,
    -dx/2-0.007, 0.864+2*0.007+2*dy, 15, 
    -dx/2-0.007, b-0.12-R+(R3*cos(ASN((-dx/2-0.007)/R3))), 79,
     0, b-0.12-R, 900,
    -dx/2-0.007-dx, b-0.12-R+(R3*cos(ASN((dx/2+0.007+dx)/R3))), 3079,
    -dx/2-0.007-dx, 0.864+2*0.007+2*dy, -1,

     dx/2+0.007+dx, 0.864+2*0.007+2*dy, 15,
     dx/2+0.007, 0.864+2*0.007+2*dy, 15, 
     dx/2+0.007, b-0.12-R+(R3*cos(ASN((-dx/2-0.007)/R3))), 79,
     0, b-0.12-R, 900,
     dx/2+0.007+dx, b-0.12-R+(R3*cos(ASN((dx/2+0.007+dx)/R3))), 3079,
     dx/2+0.007+dx, 0.864+2*0.007+2*dy, -1,

    -dx/2, 0.864+2*0.007+2*dy, 15,
     dx/2, 0.864+2*0.007+2*dy, 15,
     dx/2, b-0.12-R+(R3*cos(ASN((dx/2)/R3))), 79,
     0, b-0.12-R, 900,
    -dx/2, b-0.12-R+(R3*cos(ASN((dx/2)/R3))), 3079,  
    -dx/2, 0.864+2*0.007+2*dy, -1,

    -a/2+0.12+0.015+0.007+sqr(2*0.0035^2), 0.807, 15,
    -0.0035, 0.807, 15,
    -0.0035, 0.857, 15,
    -a/2+0.12+0.015+0.007+sqr(2*0.0035^2)+0.05, 0.857, 15,
    -a/2+0.12+0.015+0.007+sqr(2*0.0035^2), 0.807, -1,

    a/2-0.12-0.015-0.007-sqr(2*0.0035^2), 0.807, 15,
    0.0035, 0.807, 15,
    0.0035, 0.857, 15,
    a/2-0.12-0.015-0.007-sqr(2*0.0035^2)-0.05, 0.857, 15,
    a/2-0.12-0.015-0.007-sqr(2*0.0035^2), 0.807, -1,

    -a/2+0.142, 0.807+sqr(2*0.0035^2), 15,
    -dx/2-0.007*2-dx, 0.857+sqr(2*0.0035^2), 15,
    -dx/2-0.007*2-dx, 0.864+dy, 15,
    -a/2+0.142, 0.864+dy, 15,
    -a/2+0.142, 0.807+sqr(2*0.0035^2), -1,        

    a/2-0.142, 0.807+sqr(2*0.0035^2), 15,
    dx/2+0.007*2+dx, 0.857+sqr(2*0.0035^2), 15,
    dx/2+0.007*2+dx, 0.864+dy, 15,
    a/2-0.142, 0.864+dy, 15,
    a/2-0.142, 0.807+sqr(2*0.0035^2), -1,

    -a/2+0.142, 0.864+dy+0.007, 15,
    -dx/2-0.007*2-dx, 0.864+dy+0.007, 15,
    -dx/2-0.007*2-dx, 0.864+2*dy+0.007, 15,
    -a/2+0.142, 0.864+2*dy+0.007, 15,
    -a/2+0.142, 0.864+dy+0.007, -1,        

    a/2-0.142, 0.864+dy+0.007, 15,
    dx/2+0.007*2+dx, 0.864+dy+0.007, 15,
    dx/2+0.007*2+dx, 0.864+2*dy+0.007, 15,
    a/2-0.142, 0.864+2*dy+0.007, 15,
    a/2-0.142, 0.864+dy+0.007, -1,
 
    -a/2+0.142, 0.864+2*dy+2*0.007, 15,
    -dx/2-0.007*2-dx, 0.864+2*dy+2*0.007, 15,
    -dx/2-0.007*2-dx, b-0.12-R+(R4*cos(ASN((dx/2+2*0.007+dx)/R4))), 79,
      0, b-0.12-R, 900,
    -0.0035, b-0.12-R+(R4*cos(ASN((0.0035)/R4))), 3079,
    -0.0035, b-0.12-R+(R2*cos(ASN((0.0035)/R2))), 79,
     0, b-0.12-R, 900,
    -a/2+0.142, b-0.12-R+(R2*cos(ASN((a/2-0.142)/R2))), 3079, 
    -a/2+0.142, 0.864+2*dy+2*0.007, -1,

     a/2-0.142, 0.864+2*dy+2*0.007, 15,
     dx/2+0.007*2+dx, 0.864+2*dy+2*0.007, 15,
     dx/2+0.007*2+dx, b-0.12-R+(R4*cos(ASN((dx/2+2*0.007+dx)/R4))), 79,
     0, b-0.12-R, 900,
     0.0035, b-0.12-R+(R4*cos(ASN((0.0035)/R4))), 3079,
     0.0035, b-0.12-R+(R2*cos(ASN((0.0035)/R2))), 79,
     0, b-0.12-R, 900,
     a/2-0.142, b-0.12-R+(R2*cos(ASN((a/2-0.142)/R2))), 3079, 
     a/2-0.142, 0.864+2*dy+2*0.007, -1,

    use (nsp)


material mat1

for ii = 1 to 3*2 step 1

    prism_ 5, 0.007,
        get (15)

next ii

prism_   6, 0.007,
    -dx/2-0.007-dx, 0.864+2*0.007+2*dy, 15,
    -dx/2-0.007, 0.864+2*0.007+2*dy, 15, 
    -dx/2-0.007, b-0.12-R+(R3*cos(ASN((-dx/2-0.007)/R3))), 79,
     0, b-0.12-R, 900,
    -dx/2-0.007-dx, b-0.12-R+(R3*cos(ASN((dx/2+0.007+dx)/R3))), 3079,
    -dx/2-0.007-dx, 0.864+2*0.007+2*dy, -1

prism_   6, 0.007,
     dx/2+0.007+dx, 0.864+2*0.007+2*dy, 15,
     dx/2+0.007, 0.864+2*0.007+2*dy, 15, 
     dx/2+0.007, b-0.12-R+(R3*cos(ASN((-dx/2-0.007)/R3))), 79,
     0, b-0.12-R, 900,
     dx/2+0.007+dx, b-0.12-R+(R3*cos(ASN((dx/2+0.007+dx)/R3))), 3079,
     dx/2+0.007+dx, 0.864+2*0.007+2*dy, -1

prism_   6, 0.007,
    -dx/2, 0.864+2*0.007+2*dy, 15,
     dx/2, 0.864+2*0.007+2*dy, 15,
     dx/2, b-0.12-R+(R3*cos(ASN((dx/2)/R3))), 79,
     0, b-0.12-R, 900,
    -dx/2, b-0.12-R+(R3*cos(ASN((dx/2)/R3))), 3079,  
    -dx/2, 0.864+2*0.007+2*dy, -1

prism_   5, 0.007,
    -a/2+0.12+0.015+0.007+sqr(2*0.0035^2), 0.807, 15,
    -0.0035, 0.807, 15,
    -0.0035, 0.857, 15,
    -a/2+0.12+0.015+0.007+sqr(2*0.0035^2)+0.05, 0.857, 15,
    -a/2+0.12+0.015+0.007+sqr(2*0.0035^2), 0.807, -1

prism_   5, 0.007,
    a/2-0.12-0.015-0.007-sqr(2*0.0035^2), 0.807, 15,
    0.0035, 0.807, 15,
    0.0035, 0.857, 15,
    a/2-0.12-0.015-0.007-sqr(2*0.0035^2)-0.05, 0.857, 15,
    a/2-0.12-0.015-0.007-sqr(2*0.0035^2), 0.807, -1

prism_   5, 0.007,
    -a/2+0.142, 0.807+sqr(2*0.0035^2), 15,
    -dx/2-0.007*2-dx, 0.857+sqr(2*0.0035^2), 15,
    -dx/2-0.007*2-dx, 0.864+dy, 15,
    -a/2+0.142, 0.864+dy, 15,
    -a/2+0.142, 0.807+sqr(2*0.0035^2), -1 


prism_   5, 0.007,
    a/2-0.142, 0.807+sqr(2*0.0035^2), 15,
    dx/2+0.007*2+dx, 0.857+sqr(2*0.0035^2), 15,
    dx/2+0.007*2+dx, 0.864+dy, 15,
    a/2-0.142, 0.864+dy, 15,
    a/2-0.142, 0.807+sqr(2*0.0035^2), -1 

prism_   5, 0.007,
    -a/2+0.142, 0.864+dy+0.007, 15,
    -dx/2-0.007*2-dx, 0.864+dy+0.007, 15,
    -dx/2-0.007*2-dx, 0.864+2*dy+0.007, 15,
    -a/2+0.142, 0.864+2*dy+0.007, 15,
    -a/2+0.142, 0.864+dy+0.007, -1        


prism_   5, 0.007,
    a/2-0.142, 0.864+dy+0.007, 15,
    dx/2+0.007*2+dx, 0.864+dy+0.007, 15,
    dx/2+0.007*2+dx, 0.864+2*dy+0.007, 15,
    a/2-0.142, 0.864+2*dy+0.007, 15,
    a/2-0.142, 0.864+dy+0.007, -1

prism_   9, 0.007,
    -a/2+0.142, 0.864+2*dy+2*0.007, 15,
    -dx/2-0.007*2-dx, 0.864+2*dy+2*0.007, 15,
    -dx/2-0.007*2-dx, b-0.12-R+(R4*cos(ASN((dx/2+2*0.007+dx)/R4))), 79,
      0, b-0.12-R, 900,
    -0.0035, b-0.12-R+(R4*cos(ASN((0.0035)/R4))), 3079,
    -0.0035, b-0.12-R+(R2*cos(ASN((0.0035)/R2))), 79,
     0, b-0.12-R, 900,
    -a/2+0.142, b-0.12-R+(R2*cos(ASN((a/2-0.142)/R2))), 3079, 
    -a/2+0.142, 0.864+2*dy+2*0.007, -1

prism_   9, 0.007,
     a/2-0.142, 0.864+2*dy+2*0.007, 15,
     dx/2+0.007*2+dx, 0.864+2*dy+2*0.007, 15,
     dx/2+0.007*2+dx, b-0.12-R+(R4*cos(ASN((dx/2+2*0.007+dx)/R4))), 79,
     0, b-0.12-R, 900,
     0.0035, b-0.12-R+(R4*cos(ASN((0.0035)/R4))), 3079,
     0.0035, b-0.12-R+(R2*cos(ASN((0.0035)/R2))), 79,
     0, b-0.12-R, 900,
     a/2-0.142, b-0.12-R+(R2*cos(ASN((a/2-0.142)/R2))), 3079, 
     a/2-0.142, 0.864+2*dy+2*0.007, -1

del 1
addz 0.045
addy 0.95
addx -a/2+0.06

call "handle_1" mat2

addz -0.045
mulz -1

call "handle_1" mat2
